From: Deepak Goel Date: Fri, 13 Mar 2009 19:43:38 +0000 (+0000) Subject: M-v correctness. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1283 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0e7ee3fe81aceaae400eeea0416e5059479bcd1f;p=emacs.git M-v correctness. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 251fd8e1002..f45df702a71 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2009-03-13 D. Goel + + * midnight.el (midnight-next): Ditto. + + * ibuf-ext.el (ibuffer-generate-filter-groups): + (multiple-value-bind .. ls) -> (multiple-value-bind + .. (values-list ls)) + 2009-03-13 Agustín Martín * textmodes/ispell.el (ispell-get-word): Initialize spellchecker diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index fb68345be94..73c5840aefa 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -544,10 +544,11 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." (dolist (filtergroup filter-group-alist) (let ((filterset (cdr filtergroup))) (multiple-value-bind (hip-crowd lamers) - (ibuffer-split-list (lambda (bufmark) - (ibuffer-included-in-filters-p (car bufmark) - filterset)) - bmarklist) + (values-list + (ibuffer-split-list (lambda (bufmark) + (ibuffer-included-in-filters-p (car bufmark) + filterset)) + bmarklist)) (aset vec i hip-crowd) (incf i) (setq bmarklist lamers)))) diff --git a/lisp/midnight.el b/lisp/midnight.el index 710c9fafe0b..a3546fe7ad4 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -205,7 +205,8 @@ The default value is `clean-buffer-list'." (defun midnight-next () "Return the number of seconds till the next midnight." - (multiple-value-bind (sec min hrs) (decode-time) + (multiple-value-bind (sec min hrs) + (values-list (decode-time)) (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) ;;;###autoload